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ccm 
lem Ea | 


m 13 


**F ILE**1D**LOADER 
LL 000000 AAAAAA IDDDDDDD EEEEEEEEEE RRRRRRRR 
LL 000000 AAAAAA DDDDDDDD EEEEEEEEEE RRRRRRRR 
LL 00 00 AA AA DD DD EE RR RR 
LL 00 OO AA AA DD DD EE RR RR 
LL 00 00 AA AA DD DD EE RR RR 
LL 00 00 AA AA 0D D EE RR RR 
LL 00 OO AA AA DD DD EEEEEEEE RRRRRRRR 
LL 00 OO AA AA DD DD EEEEEEEE RRRRRRRR 
LL 00 00 AAAAAAAAAA DD DD EE RR RR 
LL 00 00 AAAAAAAAAA DD D EE RR RR 
LL 00 00 AA AA 0D DD EE RR RR cece 
LL 00 00 AA AA DD DD EE RR RR eee 
LLLLLLLLLLE 000000 Aa AA DDDDDDDD EEEEEEEEEE RR RR eoee 
LLLLLLLLLLE 000000 AA AA DDDDDDDD EEEEEEEEEE RR RR eoee 
LL III] SSSSSSSS 
LL HI! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL Il SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III1II SSSSSSSS 


N 13 
spy = LOAD A DRIVER AND/OR DEVICE CONTROL BL 15-SEP-1984 23:54:17 VAX/VMS Macro V04-00 Page 0 
a 
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(1) 10 DECLARATIONS 

(1) 16 LOADER = LOAD A DEVICE DRIVER/DATABASE 

(1) $80 CHECK_DRV = CHECK IF DRIVER ALREADY LOADED 
(1) 91 LOAD_BB = LOAD THE DATABASE 

(1) 651 DB_ERROR = ERROR LOADING DATABASE 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
we 
* 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
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TRANSFERRED. . 
® 
® 
® 
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® 
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* 
* 
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;++ . 
¢ FACILITY: SYSGEN 


; ABSTRACT: LOAD A DRIVER AND/OR DEVICE CONTROL BLOCKS 


; ; ENVIRONMENT : USER MODE PRIVILEGED CODE 
; ; AUTHOR: LEN KAWELL, CREATION DATE: 16-JUN-1978 
: MODIFICATION HISTORY: 


: VO3-015 wHMO005 Bill Matthews 19-Jul-1984 
$ Don't issue vector in use error message if the vector has 
3 oth in use by the console terminal driver (CONSINTINP). 


V03-014 LMP0275 L. Mark Pilant, 12-Jul-1984 12:10 
Initialize the ACL info in the ORB to be a null descriptor 
List rather than an empty queue. This avoids the overhead 
of sOCk ine and unlocking the ACL mutex, only to find out 
that the ACL was empty. 


v03-013 LMP0221 L. Mark Pilant 31-Mar-1984 10:46 
Add support for an ORB, the Object’ s Rights Block. 


V03-012 WHM0004 Bill Matthews 16-Feb-1984 
Added mari 2 of a 2 part change to clean up the support of 
combo style devices. 


1 
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4-SEP-19 04:34 ([BOOTS.SRCJLOADER.MAR;1 (1) 

000 28 3 v03-011 wHM0003 Bill Matthews 04-Feb-1984 

000 9; Added part 1 of a 2 part change to clean up the support 

4 ¢ ; of combo style devices. 

000 6¢ : yO3-010 LMPO185 L. Mark Pilant, 26-Jan-1984 15:28 
4 o7 ; Add support for ACLs on devices. 

0000 65: V03=009 wHM0002 Bill Matthews 03-Jan-1984 

0000 66 ; In LOAD_DB don't assume the 1/0 database hasn't been 

0000 67 ; modified since SYSGEN called SGNSGET_DEVICE. The CONFIGURE 
0000 68 ; process could have altered the I/0 database. ACFSGL_LASTDDB 
4 4 3 isn’t necessarily the Last DDB and the UCB may have been 
44 4 ; created. 

0000 ie : v03-008 wHM0001 Bill Matthews 14-Dec-1983 

B88 t? : Use IDBSB_COMBO_VECTOR to replace IDBS$B_VECTOR functionality. 
0000 «75: v03-007 ROwW0221 Ralph 0. Weber 8-SEP-1983 

0000 76; In LOAD_DB guarantee that a success status is available to 
0000 773: allow IOCSUNITINIT to be called, even if the call to 

4 ce ; IOGENSCNTRL_INI is skipped. 

0000 80; V03-096 ROW0203 Ralph 0. Weber 5-AUG-1983 

0000 81 ; Change LOAD_DB to use IOCSCTRLINIT, the common, system-wide 
it Ht . routine for calling driver's unit initialization routines. 
0000 84: v03-0C5 TCM0001 Trudy C. Matthews 01-Jun-1983 

0000 85 ; Initialize the DDB$L_ALLOCLS (device allocation class field) 
9808 s8 ; in routine CREATE_DDB. 

0000 88; V03-004 MSHO004 Maryann Hinden 09-Feb-1983 

44 3 3 Add support for cluster device names. 
0000 s(o91: v03-003 MSHO003 Maryann Hinden 06-0c t-1982 
444 38 3 Modify MSH0002. 
0000 9% ; v03-002 MSHO002 Maryann Hinden 05-Oct-1982 

0000 95 ; Change check for zero UCB pointer when loading 

i404 38 ; database. 

0000 «98: v03-001 MSHO001 Maryann Hinden 31-JUL-1982 

i444 100 : Add check for missing DDT's. 
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: MACROS: 


SORBDEF 
: OWN STORAGE: 


PSECT 
LOAD_FLAGS: 
“VIELD 
DDB_BL INK: 
UCB_BLINK: 
~BLKL 
-PSECT 
MBINT_DISP: 
PUSHR 
JSB 
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: INCLUDE FILES: 


V4 

E 
4-SE 
DECLARATIONS 


t EQUATED SYMBOLS: 


NONPAGED_DATA 


1 
LOAD ,0,<- 
<D 


oe ca 


<UCB, ,M>,- 
> 


1 
1 
NONPAGED_CODE 


#°M<R2,R3,R4,R5> 
a#0 


Pe 
P- 


1986 23:00:56 EBoovs:smeSLomben.man:1 = 29° 


rd,wrt,noexe,quad 

;CONTROL BLOCKS CREATED FLAGS 
3; FLAG DEFINTIONS 

; DDB CREATED 

; CRB CREATED 

: UCB CREATED 

:DDB BACKWARD LINK 

;UCB BACKWARD LINK 


rd,nowrt,exe,long 
MBA INTERRUPT DISPATCHER MODEL 


DEFINE SYSGEN MESSAGES 

DEFINE SYSTEM IPL'S 

s;DEFINE ADAPTER TYPE SYMBOLS 

DEFINE DYNAMIC MEMORY TYPES 

DEFINE DEVICE DATA BLOCK 

;DEFINE UNIT CONTROL BLOCK 

DEFINE CHANNEL CONTROL BLOCK 

DEVICE INTERRUPT VECTO 

;DEFINE INTERRUPT DISPATCH BLOCK 

DEFINE ADAPTER CONTROL K 

DEFINE PROCESSOR REGISTER 

;DEFINE DRIVER PROLOGUE TABLE 

DEFINE AUTO-CONFIGURE ARG LIST 

DEFINE PAGE TABLE EN 

DEFINE UNIBUS ADAPTER 
sDEFINE DDT 
DEFINE OBJECT’S RIGHTS BLOCK OFFSETS 
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v04-000 DECLARATIONS SEP=19 4:34 (BOOTS.SRCJLOADER.MAR;1 (1) 
0008 159 INT_DISP: GENERAL INTERRUPT DISPATCHER MODEL 
F BB 0008 160 PUSHR = #*M<RO,R1,R2,R3,R4,R5> 
00000000 9F 16 it 1° JSB a#0 
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| ¥04-000 LOADER = LOAD A DEVICE DRIVER/DATABASE 7786-138 33:04; $4 feoors sre LOADER.MAR; 1 ’ (1) 
4 190 ~SBTTL LOADER = LOAD A DEVICE DRIVER/DATABASE 
01 166 3++ 
4 19 3; FUNCTIONAL DESCRIPTION: 
8 169 ; This routine will load a device driver, a device driver and 
0010 170; database, or just a single unit into an already existing 
0010 171; database. ; 
0010 16 : 
Bald 173 ; CALLING SEQUENCE: 
010 174; 
Bb15 10? 3 CALL IOGENSLOADER(ACF_LIST) 
0010 177 ; INPUT PARAMETERS: 
0010 178; 
0010 179; ACF_LIST = 
0010 180; 
0010 181 ; ACFSL_ADAPTER(AP) = ADDRESS OF ADAPTER CONTROL BLOCK 
0010 186 3 ACFSL_CONFIGREG(AP) = ADDRESS OF CONFIGURATION STATUS REGISTER 
0010 183 ; ACFSW_AVECTOR(AP) = OFFSET TO ADAPTER INTERRUPT VECTOR (SCB) 
0010 184 ; ACFSB_AUNIT(AP) = ADAPTER UNIT NUMBER 
0010 185 ; ACFSB_AFLAG(AP) = ADAPTER GENERATION CONTROL FLAGS 
0010 186 ; ACFSL_CONTRLREG(AP) = ADDRESS OF CONTROL REGISTER 
0010 187 ; ACFSW_CVECTOR(AP) = OFFSET TO CONTROLLER INTERRUPT VECTOR (TABLE) 
0010 188 ; ACFS$W_CUNIT(AP) = CONTROLLER UNIT NUMBER 
0010 189 ; ACFSB_CNUMVEC(AP) = NUMBER OF CONTROLLER VECTORS 
0010 190; ACFSL_DEVNAME(AP) = ADDRESS OF DEVICE NAME COUNTED STRING 
0010 191 ; ACFSL_DRVNAME (AP) = ADDRESS OF DRIVER NAME COUNTED STRING 
0010 136 $ ACFS$B_COMBO_CSR_OFFSET(AP) = OFFSET BACK TO THE START OF THE CSRS FOR 
0010 193; A COMBO DEVICE 
0010 194 ; ACF$B_COMBO_VECTOR_OFFSET(AP) = OFFSET BACK TO THE START OF THE VECTORS FOR | 
0010 195; FOR A COMBO DEVICE 
0010 196 . 
0010 197; 
0010 198 ; IMPLICIT INPUTS: 
0010 199; 
0010 200; NONE 
0010 $a) ; 
0010 8S ; OUTPUT PARAMETERS: 
0010 $0 3 
0010 04; NONE 
0010 05 ; 
0010 06 ; IMPLICIT OUTPUTS: 
Ba18 07 ; 
Soro 43 : DRIVER AND/OR DATABASE LOADED 
0010 10 ; COMPLETION CODES: 
0010 11; 
0010 \¢ ; RO = STATUS OF OPERATION 
001 213; 
01 14 ; SIDE EFFECTS: 
01 $ 3 
4 18 : NONE 
1 7; 
gi 318 
0000 001 20 .Entry IOGENSLOADER,O 
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AND/OR DEVICE CON 
DEVICE DRIVER/DATABASE 4-SEP- BOOTS.SRCJLOADER.MAR; 1 


: ; See if driver needs to be loaded 


BBS #ACESV RELOAD ACE $B_ AFLAG(AP) 108 ;BR IF RELOAD REQUESTED 
SCHKRNL _S_W*CHECK « (AP) :CHECK IF BRIVER LOAD 
“RO #SS CNOPRY [NO PRIVILEGE? 
§ :BR IF YES 
RO, 208 ‘BR IF DRIVER LOADED 


10$: PUSHL ACFSL_DRVNAME (AP) 
CALLS 1, LOGENSLOADDRIV 


Note that the errors from this call we suppressed if this is a load driver 
call only (If ACFSV_NOLOAD_DB is set). This is because the subsequent 
call from A weg FIGURE takes this same coae path and will report the 
A 


SET ADDR OF DRIVER NAME 
LOAD THE DRIVER 


error at tha me. Unsupported devices do not print out the error message. 


t 
20$: BBS #ACF$V_NOLOAD_DB 
ACFS$B_AFLAG(AP) , $0$ 


BLBC RO,50$ 

att ACF $L_DEVNAME (AP) 
SCMKRNL_S W*LOAD_DB, (AP) 
BRB 40$ 


sEXIT IF LOAD DRIVER CALL ONLY 
;BR IF ERROR LOADING DRIVER 
opeviee NAME SPECIFIED? 

BR NOT DON'T LOAD DATABASE 
:LOAD. THE DATABA ASE 

3 EXIT WITH STATUS 

30$: MOVL #1,R0 

40$: RET 

Error occured loading driver 

60s: BBC #ACFSV_SUPPORT,- 


ACFS$B_AFLAG(AP) ,40$ :BRANCH IF SUPPORTED DEVICE 
BRB 30$ SALWAYS SUCCESS FOR UNSUPPORTED 
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CHECK_DRV = CHECK IF DRIVER ALREADY LOAD 4=SEP=1984 23:04:34 foots sre LOADER.MAR; 1 (1) 
O05 of a .SBTTL CHECK_DRV = CHECK IF DRIVER ALREADY LOADED 
OSF 362: 
33 és ; Local kernel mode routine to check if the driver is already loaded. 
008 63 
O5F 66 tHE CK _DRV: 
OOFC O05F 26 «WORD “M<R2,R3,R4,R5,R6,R7> 
FFOC' 30 0061 268 BSBW =—s- LOGENS$LOCK_{foD6 :LOCK THE 1/0 DATABASE 
55 18 AC DO 0064 269 MOVL  ACFSL_DRVNAME(AP),RS © GET ADDR OF DRIVER NAME 
54 85 9A 0068 270 MOVZBL (R5)+ GET SIZE OF DRIVER NAME 
56 00000000' GF 3 006 71 MOVAB G*10C$GL_DPTLIST.R6 :GET ADDR OF DPT LIS 
57 56 00 00 cg R6,R SSAVE IT 
007 73 108: 
50 v4 0075 27% CLRL = RO sASSUME NOT LOADED 
56 66 00 0077 275 MOVL DPTSL_FLINK(R6) ,R6 :GET ADDR OF NEXT DRIVER PROLOGUE 
57 56 «201 «C«O07A Ss 276 CMPL ZEND OF LIST? 
17 13 007D = 277 BEQL 88 ‘BR IF YES 
51 20 A6 SE OO7F 278 MOVAB DPTST _NAME (R6) ,R1 [GET ADDR OF DRIVER NAME 
50. 81 9A 0083 279 MOVZBL :GET SIZE OF DRIVER NAME 
65 54 00 61 50 2D 0086 280 CMPCS RO (R41) ,#0,R4, (RS) SCOMPARE DRIVER NAMES 
E7 12 OO8C 281 BNEQ 108 “BR IF NOT EQUAL 
0000'cF 56 DO O08E Be MOVL  R6,WSACFSGL_DPT ;SET ADDR OF DRIVER PROLOGUE 
50 01 00 009 8 MOVL #1,RO :SET SUCCESS 
0096 284 20S: 
50 oD 0096 285 PUSHL RO :SAVE STATUS 
FF65" 30 0098 286 BSBW  § IOGENSUNLK_IODB [UNLOCK THE 1/0 DATABASE 
50 8ED0 0098 287 POPL RO ‘RESTORE THE STATUS 
04 O09E 288 RET 
009F 289 
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Yesiti LOAD_DB = LOAD THE DATABASE 46-SEP-1984 g ‘Odi $4 BOOTS.SRCJLOADER.MAR; 1 . (1) 
oF 91 -SBTTL LOAD_DB = LOAD THE DATABASE 
of 59g 3° 
| OF 94 ; hoces kernel mode routine to load the UCB and if not loaded yet, 
009F 95 ; the DDB, CRB, and IDB. 
OO09F 38 3 
O9F 97 ;-- 
OOF 98 LOAD_DB: 
OFFC OOF 99 » WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
0000'CF 94 O0A1 300 CLRB =: WSLOAD_FLAGS :CLEAR LOADER FLAGS 
5B 0O000'CF be BOAR 01 MOVL W*A PFSCL DPT,R11 [GET ADDR OF pRiver PROLOGUE 
FF53" 30 QOAA Oe BSBW TOGENSLOCK. 1608 SLOCK THE 1/0 DATABASE 
BpAe Be § 3 CHECK IF DEVICE DATABASE ALREADY LOADED 
0S €4 OOAD 06 BBSC #ACFSV tyr: 
OD 0B AC OOAF 307 ACF$B_RFLAG(APS , 2$ : Skip the scan. if done in CONNECT 
7E 12 AC 3C O0B2 08 MOVZWL ACES CCUNET (AP) 2<{p) 3; Push unit number 
14 AC DD 00B6 09 PUSHL ACFS$L~ F  oorts AP) 3; Push device name address 
FF44" 30 00B9 10 BSBW SGNSGET_DEVICE : Get device addresses if they exist 
=. 2... Oe poet 1 ADDL2 rt SP 3; Pop input off stack 
QOBF i 2$: SETIPL #IPL$_SYNCH 3; Synchronize I/0 database access 
5A OO00'CF DO O0C2 314 MOVL WA ACE SG. DDB,R10 3 Address of 
13 at 316 BEQL CREATE_DBB 3; Branch if it doesn't exist 
O000'CF D5 O0C9 17 TSTL W*ACFSGL_UCB ; Is there a UCB for this unit? 
03 13 00CD 18 BEQL 1 ; Branch if no : 
0358 31 sha 3% 5$: BRW DB_EXIT ; Branch to common exit point 
59 Q000°CF DO 00D2 21 108: MOVL W*ACFSGL_CRB,R9 ; Address of CRB 
F6 13 00D7 $§ BEQL 3 none, exit 
58 O000°CF 00 0009 32 MOVL W*ACFSGL_IDB,R8 3; Address of IDB 
EF 13 OODE 324 BEQL : If none, exit 
57 04 AA 00 OOEO 325 MOVL DOBSL_UCB(R10) ,R7 : r* address of first UCB 
0 13 Q00E4 326 BEQL eql no UCB'S go create one. 
12 AC 54 A7 B1 OO0E6 $56 20$: CMPW UCBSW_UNIT(R7) ,ACFSW_ cuniTtapss Is ue already loaded? 
2 13 OOEB ; 8 BEQL ; If eql yes, nothing left to do 
57 30 A7 0DO0 OOED $3 MOVL UCBSL_LINK(R7) ,R7 ; Get address of next UCB 
F3 12 OOF1 0 BNEQ : If neq then there is another UCB 
01D7 331s: OOF 31 30$: BRW CREATE_UCB ; Create UCB for this unit 
OOF6 $$. 
OOF6 3 : 
Bere $e i 3; CREATE THE DDB 
F6 5 
OOF6 336 EREATE_DDB: 
5A 0000'CF 0 OOF6 37 MOVL W*ACFSGL LASTODB. R10 :Get address of last DDB in List 
51 44 8F 9A O0FB $3 MOVZBL #DDB$K_LENG 3GET SIZE OF D 
rere" 39 OOF F 9 BSBW IOGENSALLOGLOCK [CREATE THE DD 
03 108 40 BLBS Nits 3sBR IF SUCCESS 
0329 1 19 41 BRW DB_ERROR ELSE = ERROR 
0000° CF 1 8 0108 4g 10$: BISB aL OAD M_DDB,W*LOAD_FLAGS ;SET DDB LOADED FLAG 
08 Ag 51 80 10D 34 MOVW R1,DD0B$0_SIZE(R2) -SET SIZE 
OA Al 06 90 0111 344 MOV #OYNSC_DDBB,DDBSB_TYPE(R2) :SET TYPE 
0001'CF 6A SCO 115 45 MOVAL DODBSL CINK (RI ),Q*DDB_ LINK ;SAVE DDB BACKWARD LINK 
51 6A 00 aie 46 MOVL DDBSL~ * NK(R10),R1 3 SAVE LINK TO NEXT DD 
6A 52. 00 11D 47 MOVL R2,D0D0B$L NEINK (RIO) sSET LINK TO THIS DDB 
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v04=000 LOAD_DB = LOAD THE DATABASE 273E E1382 $3 ati$4 Yeoors sre LOADER.MAR; 1 nal; f 
5A 52)—=Ci«ésé1 4 MOVL  R2,R10 :GET ADDR OF DDB 
6A 3¢ D0 01 g 28 MOVL  R1,DDBSL_LINK(R10) ‘SET LINK TO NEXT DDB 
0B AB CO96séO1 é 20 INCB pet se REFC(R11) ‘INCREMENT DPT REFERENCE COUNT 
50 148C 9A 01 1 MOVZBL @ACFSC_DEVNAME(AP),RO GET SIZE OF DEVICE NAME 
20 : 12D 36 INCL RO “ADD 1 BYTE FOR COUNT 
14 AA 14 BC o1 oe MOVC  RO,@ACFSL_DEVNAME (AP) ,DDBST_NAME(R10) ;SET DEVICE NAME 
50 18 BC 9A 0135 35% MOVZBL @ACFSL_DRONAME(AP),RO ;GET SIZE OF DRIVER NAME 
50 «D6 60139 ~=—s 355 INCL “ADD 1 BYTE FOR COUNT 
24 AA 18 8C 50 28 0138 356 MOVC RO, @ACFSL_DRVNAME (AP) ,DDBST_DRVNAME(R10) ;SET DRIVER NAM 
4 AA OOOO'CF DO 0141 357 MOVL  W*ACFS$GL_SB,DDBS$L_SB(R10) ; INSERT THE ADDRESS OF SYSTEM BLOCK 
3C AA 00000000'GF D0 0147 358 MOVL  G*CLUS$GL™ALLOCLS, ~- :COPY THE DEVICE ALLOCATION CLASS 
14F 39 DDBSL_ALCOCLS (R16) [FROM THE SYSTEM-WIDE PARAMETER 
O14 61 : CHECK IF CRB/IDB NEED TO BE CREATED 
59 6C DO O14F 8 MOVL  ACFSL_ADAPTER(AP),R9 =; CONTAINS ADDR. OF CRB IF CRBBLT FLAG IS SE 
01 €0 0152 64 BBS #ACFS$U_CRBBLT,- 
22 0B AC 0154 365 ACFS$B_AFLAG(AP) ,20$ ; BR. IF CRB & IDB ARE BUILT 
EO 0157 366 BBS #OPTS$U_SUBCNTRL,- 
24 OD AB 0159 67 DPT$B_FLAGS(R115,CREATE_CRB ; BR IF SUBCONTROLLER 
0c AB O00 CO91s«é05¢ 369 CMPB = #AT$_MBA, DPTSB_ADPTYPE (R11) : MBA ADAPTER? 
0 13 0160 370 BEQL 5$ : BRANCH IF YES 
0c AB OCOO2)Sso91s«s0162~—Ss 371 CMPB =—- #AT$_DR, DPT$B_ADPTYPE (R11) : DR ADAPTER 
08 13 0166 372 BEQL 5$ : BRANCH IF YES 
0c AB O0G:)SO9s0168)=Ss 37 CMPB =s-s #AT$_C1, DPT$B_ADPTYPE (R11) ‘ Cl ADAPTER ? 
02 13 016C 37% BEQL 5$ + BRANCH IF YES 
10 #11 IGE 37 BRB CREATE_CRB + BRANCH IF OTHER 
9170 78 : USE EXISTING CRB (IF ONE EXISTS) 
50 6C 00 9170 79 15$:  MOVL  ACFSL_ADAPTER(AP) RO : GET ADDR OF ADP 
59° 10 A0 DO 0173 380 MOVL ADPS$L~CRB(RO),R9 : GET ADDR OF EXISTING CRB | 
07 +13 «0177 381 BEQL CREATE CRB t BRANCH IF NONE 
58 2C A9 DO 0179 Be 20$:  MOVL  CRBSL_INTD+VECSL_IDB(R9),R8 : GET ADDR. OF IDB 
0140 31 O17D 38 BRW CREATE_UCB : CREATE A NEW UCB 
0180 384; 
0180 385 : CREATE CRB 
0180 386: 
0180 87 CREATE_CRB: 
51 16 AC 9A 0180 388 MOVZBL ACFSB_CNUMVEC(AP) ,R1 :GET NUMBER OF INT VECTORS 
51 07 0184 389 DECL RI [ONE IS ALWAYS A 
1 26 Ae 0186 390 MULW #VECSK_LENGTH,R1 [COMPUTE SIZE OF EXTRA DISPATCHERS 
51 0048 8F Ag 0189 91 ADDW #CRBSK™LENGTH.R1 :COMPUTE TOTAL SIZE OF CRB 
FE6F* 30 O18E 3 BSBW IOGENSALLOBLOCK SALLOCATE THE CR 
03 50 £8 0191 39 BLBS R0,10$ ‘BR IF SUCCESS 
029A 31 0194 394 BRW DB ERROR TELSE - ERRO 
0000'cF 0 8 0197 395 10$:  BISB  #LOAD_M_CRB.W*LOAD_FLAGS ;SET CRB LOADED FLAG 
59 52 00 019¢ 36 MOVL aR :GET ADDR OF CRB 
00000000'EF 59 DO O19F 39 MOVL  R9,ACFSGL_CRB t #e* SAVE FOR ACFSUDA IN AUTOCONFG 
BAD 51 80 106-398 MOVW = R1, CRBSW_SIZE(R9) : 
AAD 05 90 O1AA 399 MOVB #DYNSC_CRB,CRBSB_TYPE(R9S ;SET TYPE 
69 69 DE O1AE 400 MOVAL  CRBSL_QQFL(R9),CRBSL_WOFL(R9) ;SET WAIT QUEUE LISTHEAD 
4 A9 69 ODE 01B1 401 MOVAL cRBSL WOFL(R9) .CRBSL-WOBL(R9) ;... | 
19 0D AB 00) «CET «O01BS 4 : BBC #DPTSO_SUBCNTRL, DPT$B_FLAGS(R11),CREATE_IDB ;BR IF NOT SUBCONTROLLER 
0 6C DO O1BA 49 MOVL  ACFSL_ADAPTER(AP).RO ~ ;GET ADDR OF ADAPTER CONTROL BLOCK | 
51° 10 A0 DO O1BD 404 MOVL § ADP$L~CRB(RO),R1 [GET ADDR OF SECONDARY CRB 
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v04- LOAD_DB = LOAD THE DATABASE 4-SEP-1 1984 $3: 04:34 Yeoors: SRC JLOADER.MAR; 1 . (1) 
8 AQ s $1 1) 1C 405 R1,CRBSL_LINK(R9) 7SET ADDR abe abe ctcon CRB 
C Al 1) 1C¢ 4 $ MOVL CRBSL_INTD+VECSL JB(R1), oR be. F SECONDARY IDB 
5 AA 9A OIC 40 MOVZBL ACFSB_AUNIT(AP) ,R ADAP TER NUNIT NU 
| 18 A24 5 AS = oO9E CD 408 MOVAB CRBSL-INTD+1(R9S, 1DBSL_ vise sTeRD) CREJ ;SET ADDR OF DISPATCHER 
Oi 410 ; CREATE IDB 
1D 411; 
1D aig CREATE_IDB: 
51 18 9A OD 41 MOVZBL #IDBSK_LENGTH-<8*4>,R1 ;GET STANDARD LENGTH OF IDB 
01D6 414 eb ess | Het UNITS) 
54 16 AB 3C O1D6 415 MOVZWL DPTSW_MAXUNITS(R11),R4 'GET MA XIMUM NUMBER OF UNITS 
1c of 8 01D 21$ fie hee MAXUNITS(AP) ;WAS ° ae SPECIFIED ql CONNECT? 
54 1¢C AC BO ODF 418 MOVW ACF SW “SW etna R4 tUSE THE SPECIFIED VALUE INSTEAD 
51 6144 DF Q1E3 419 5$ MOVAL (R1)CR4J : COMPUTE TOTAL SIZE NEEDED 
51 51 F7 O1E7 420 CVTILW = =sR1,R1 31S MAXUNITS TOO LARGE ? 
A 11 OQIEA 421 BVC 7$° ;BRANCH IF NO 
50  OO7C8ODA 8F 0 O1€C 4 ¢ MOVL #31568 PANTOOBIG. RO :SET 
0238 1 OWS 4 BRW DB_ERR ;BRANCH TO ERROR 
FEO7" 30 O1F6 424 7$ BSBW TOGENSALLOBLOCK zALLOCATE THE IDB 
03 50 Fé O1F9 $82 BLBS RO,10$ :BR IF SUCCESS 
0232 1 OFC 426 BRW DB_ERROR LSE = ERROR 
0000° CF 06 88 OFF 427 10$: BISB a BAD _ M_IDB,W*LOAD_ FLAGS” SET i LOADED FLAG 
58 52 00 0204 428 MOVL oR :GET ADDR OF IDB 
08 AB «651 = «380 «20207 +4 MOVW R1, 1DB$W_SIZE(R8) SET SIZE 
OA AB 09 «+90 0208 430 MOVB #DYN NSC 158. 1DBSB reel ;SET TYP pe 
Oc AS 454 BO O20F 431 MOVW 4, 108SW TS(RB) SET MAXIMUM UNITS 
OC AB «20S: «91s (0213) 432 CMPB pats PNULC OPTS _ADPTYPE(R11): ;NULL ADAPTER 
15 12 0217 433 BNEQ 30$ ~ F NOT, BRAN ch 
2C AD = 558 «=O C0219 434 MOVL R8,CRBSL_INTD+VECS$L_IDB(R9) STORE ipB Ae is IN CRB 
38 AD «64 «(021D = 435 CLRL CRBSL_ INTDs +VECSL_ADP(R9) NULLIFY ADP POINTER 
14 AB D4 0220 436 CLRL TDBSt TA ADP(R8) sNULLIFY ADP eines 
68 D4 0223 437 CLRL IDBSL_ -CSR(R8) sNULLIFY CSR POINTER 
FODF CF DO 0225 438 MOVL W* INT _DISP, : STORE INTERRUPT DISPATCHER CODE 
24 AY 0229 439 CRBSL_ INTDSVECSa semctcniags 
OO9F 31 0228 440 BRW CREATE_U ; CONT INUE 
O22E 441 
5343 4 | 30$: 
4 A8 6C DO O22E Gh MOVL ACFSL_ADAPTER(AP) , IDBSL_ADP(R8) ;SET ~ AY ADP 
68 OC AC DO 0232 444 MOVL ACFSL~CONTRLREG(AP) IDBSL_CSR(R8) ;SET ADDR OF CSR 
20 AC 90 0236 445 MOVB ACF$B_COMBO_CSR _OFFSET(APY,- SET OFFSET TO CSR START 
OF A8 oe ret IDB$B_ COMBO_CSR_OFFSET(R8) : 
0238 $68 ; Vector is now saved in 108. | The two least significant bits are olveys 
B 449 ; zero, so the nine bit f is taken as bits 2 through 9 and plac 
0238 450; in a byte field. IDB$B_VECTOR is the field, and is currently pe not “Foiled 
OS36 $3) : in for a system booted from a UNIBUS boot device (e.g. an 
51 10AC O07 O2 EF 0238 43 extzv #2,#7,acf$Sw_cvector(ap),r1 : Get right shifted vector 
AB 51 90 8 rf $23 movb rl, idb$b_vettor(r8) ; Place in IDB 
1F AC 90 0245 $28 MOVB ACFSB_COMBO_VECTOR_OFFSET(AP),- ;SET OFFSET TO VECTOR START 
10 A8& 48 45 1DB$B~ COMBO" VEC TOR_OF F SET(R8) 
4A $28 
4A 459; 
2 rr 3; CREATE INTERRUPT VECTOR DISPATCHER(S) 
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CREATE _VEC: 
svi 
BGTR 


5$: MOVZBL 
10$: MOVL 


13$: MOVL 


15$: 


20S: 


30$: aoe 
SOBGTR 
CREATE A UCB 
tREATE _UCB: 
CLRL 
MOVZWL 
8NEQ 
BRU 
23: MOVL 
ADDL? 
BSBW 
BLBS 
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LOAD_DB = LOAD THE DATABASE 4-SEP=-1984 23:04:3 


ACF SW_CVECTOR(AP) ,R6 
#SYSGS_INVVEC,RO 
DB_ERROR 


ACF$B_ tts he R5 
CRBSL =I 


NTD(RO) ,R 
w* mBIAT™ _DISP, VECS$Q_ DISPAt 


PACTS 
Hatt v STRVEC 13$ 


RAGEA SYSPARAM+<EXESGL ~SCB-EXESA. SYSPARAM> . 


VEC$Q_DISPATCH+1(R4) ,= ge 
wen DISP,VEC$Q_DISPATCH(R4) 


ACFSL_ADAPTER(AP) ,RO 


ADPS$L~VECTOR(RO) ,R6,RO 
#AT$_OBA,DPTSB_ Abprepe crit) ;UBA DEVICE? 


1 R 
#ATS_MPM,DPTSB _ADPTYPE (R41) 


7 eet Macro V04-00 Page 11 
4 taoors sre LOADER .MAR; 1 (1 


VECTORS 
sevice 


“PUSHR OomeND. fi, Rie RSD" 
p ‘SB ar” 


ip 
wn 
Sm 
mee 
rd 


Ra vECSL ADAPTER(AP) , VECSL Appr) ;SET ADDR OF ADP 
itd R4) 


TBR IF NOT VECTORING DIRECTLY 


“USE SYS.EXE 
i COPY OF~SCB ADDR fO GET ADDRESS 
[OF VECTOR IN SCB | 
; CONNECT DISPATCHER TO VECT 
NS USE THE INTERRUPT STACK | 

sSTORE DISPATCHER CODE 


os ADDR OF ADP 
GET ADDR OF veg ror TABLE ENTRY 


YES 
:mULTT-Port MEMORY DEVICE? 


-BR IF NOT 
vECS_ DISPATCH+2(R4), (ROS ; CONNECT DISPATCHER 


#3,(RO),R1 

R1 , #UBASUNEXINT 

R1, #CONSINTINP 
8 elpmeeaseme 
IOGENSCONN_VEC 


#VECSK_LENGTH,R4 
R5,10$~ 


R7 
DPT$W_UCBSIZE(R11),R1 
INIT_DB 


FORRGC LENGTH,R1 
LOGENSALLOBLOCK 


URRENT VECTOR CONTENT 
NCLUDING. STACK. SPECIFICATION 


RIN USE BY THE CONSOLE TERMINAL DR 
S CONNECT THE TRUE DRIVER 


ase vecren 
My aoe 


Oe « =O 


onom 
uae 


F UC 

NON-NULL 

NO UCB FOR THIS DRIVER 
IZE FOR LATER 

RB ADJACENT TO THE UCB 
We UCB AND ORB 
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ieee LOAD_DB = LOAD THE DATABASE 4-SEP=1 Hr 33:3 04:34 feoors: SRCJLOADER.MAR; 1 - 
0146 31 O28 519 BRW dB ERROR sELSE = ERR 
0000' CF : H EB 0 5$: B1SB m0 D_M UCB B W"LOAD. FLAGS ;SET UCB LOADED FLAG 
08 A 8 F 1 MOVW oR y 6s0 site :SET SIZE OF UC 
1C A2 2 r'. £ F4 : ADDL3 R2,UCBSL_ORB(R2) +SET ORB ADDRESS 
DO O2F9 MOVL Ro°R “COPY ADDR OF UCB 
OA A? 1 90 O2FC 4 MOVB #DYNSC_UCB UCBSB_TYPE(R7) -SET TYPE 
OC A? OC A? ODE 09 3 5 MOVAL UCBS$L_ASTQFL(R7)-UCBSL_ASTOFL(R7) ;SET AST QUEUE LISTHEAD 
10 a7 CC AZ OD 0 $ MOVAL UCBSL-ASTQFL(R7).UCBS$L-ASTQBL(R7) : 
24 a7 59s OA § MOVL 9 ycest CRB(R7) 3SET ADDR R OF CRB 
0c Ao «Bb OO OF 3 8 C CRASW_REFC(R9) i INCREMENT CRB REFERENCE COUNT 
50 12 aC 3C 031 MOVZWL ACF SW~CUNIT (AP) RO :GET CONTROLLER UNIT NUMBER 
OC As Gh 81 13 3 p CHPN RO. 1DBSU_UNITS(RB) AX IMUM UNITS EXCEEDED? 
50 O07C803A BF po 0318 33¢ MOVL $#SYSG$_MAXUNITS,RO tSET MAXIMUM UNITS EXCEEDED 
010c = 31 03 : 333 ns BRW DB_ERROR tee eEXIT | 
18 A840) 3057) s«0325 a3 MOVL  R7,IDB$L_UCBLST(R8)CROJ :SET ADDR OF UCB IN IDB | 
28 aA? SASso=iOs«éOO3 2A 536 MOVL R16, UCBSC_DDB(R7) ADDR OF DDB | 
4C AZ 4C A? DE 03 - 53 MOVAL UcBé1oaFL < R7) ,UCBSL_ 1OQFL(R7) : 3SET 1/0 QUEUE LISTHEAD 
50 A? 4C A? ODES sCéOO8 538 MOVAL UCBSL~100F L (R7) ,UCBS$L_10QBL 
54 A? «12 AC «BO (0338) 539 MOVW ACF SW-CUNIT(AP) ,UCBSW-UNIT(R7) Sei puNET NUMBER 
51 2C a9 DO 0330 540 MOVL  CRBSL~ INTDSVECSL IDB(R9) RI :108 A 
5114 Al 00 0341 541 MOVL § IDBSL“ADP(R1),R :ADP ADDR 
OC 13 0345 348 BEQL «69 HYSICAL DEVICE If NON-ZERO 
OE Al 00 «Bl (0347) «54 CMPW =: #ATS_MBA, ADPSw saptweett’ 1s IT A MASSBU 
06 12 0348 544 BNEQ sBRANCH IF NOT 
0090 C7 OA AC 90 0340 345 MOVB § ACFS$B_AUNIT(AP),UCB$B_SLAVE(R7) ;SET SLAVE CNTRLER NUMBER 
o323 rtf 3; BEFORE HOOKING THE UCB UP TO THE DDB CHAIN, INITIALIZE THE ORB. 
51 1C A? DO 0353 549 98: MOVL UCBSL_ORB(R7),R1 :GET THE ORB ADDRESS 
OA Al 49 BF 90 0357 550 MOVE  #DYNSC_ORB,ORBSB_TYPE(R15 :SET BLOCK TYPE 
08 Al 0058 8F BO O35c 551 MOVW  § #ORBSCLENGTH, ORBSW_SIZE(R1) :SET BLOCK SIZE 
Al 01 90 0362 33 MOVB §$ #ORBSM~PROT_16,ORBSB_FLAGS(R1) :SOGW PROT WORD & NO ACL QUEUE 
0366 334 ASSUME ORBSL_ACL_DESC EQ ORBSL_ACL_COUNT+4 
28 al —7C 0366 336 CLRQ = ORBS$L_ACL_COUNT(R1) ZACL IS EMPTY 
0369 228 ; NOW HOOK THE UCB INTO THE DDB CHAIN 
51 04 AA DE 0369 560 MOVAL DDBSL_UCB(R10),R1 :GET ADDR OF ADDR OF FIRST UCB 
50 61 06 036D 561 MOVL  (R1),RO :GET ADDR OF FIRST UCB 
09 «1 0370 6¢ BEQL [BR IF NONE 
51 30A0 D 7 63 10%:  MOVAL UCBSL LINK (RO) .R1 [GET ADDR OF ADDR OF NEXT UCB 
50 61 od 0 28 64 MOVL (R1),R 3GET ADDR OF NEXT UCB 
‘71 7 re} BNEQ :BR IF IT EXISTS 
OOOS'cF 51 OD 7B 66 20$: MOVL R1,W*UCB_BLINK [SAVE UCB BACKWARD LINK 
61 57 00 HH 67 MOVL  R7.(R1) [SET FORWARD LINK TO UCB 
0D AB O01 é1 69 BBC #oPTsy SVP,DPT$B_FLAGS(R11),INIT_DB ;:BR IF NO SYS PAGE REQUIRED 
52 ~ 00000000°EF 5 8 570 MOVAB MMGSA_SYSPARAM,R2 -GEf ADDR OF SYS PARAM 
50 0 00°¢8 D F 571 MOVL Booser SPTFREL-EXESA_S SYSPARAMCRO) RO ;GET NEXT »FREE SPT ENTRY 
0000'°C 0 D1 34 es cHPL OR BOOSGL USPTEREHSEXESA. SYSPARAM(R2) [SPT F 
50 00768022, er 90 i $74 OVL  #SYSG$_SPTFULL.RO SET ERROR STATUS 
08 31 O3A 75 BRW DB_ERROR +e. eEXIT 
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984 :54:17 VAX/VMS Macro v04-00 Pa 
LOAD_DB = LOAD THE DATABASE 27 8Eb= 1382 33 ibe he feoors sre LOADER.MAR; 1 - 
2 30S: INCL BOOSGLSPTFREL-EXESA_ SYSPARAM(R2) s INCREMENT NEXT FREE POINTER 
7 MOVL MACSOL SPTBASE-EXESA SYSPARAM(R2) ,R1 joe ADDR T 
4 MOVL  &#<PTESM_VALID!PTESC_RW!PTESM_PFN>,(RISCRO] :VALIDATE THIS ENTRY 
4 MOVL  RO,UCBSC_SVPN(R7) ;SET"SYS PAGE NUMBER IN UCB 
1 : INITIALIZE ALL THE CONTROL BLOCKS 
: INIT_DB: 
4 MOVL R11, R4 :SET ADDR OF DRIVER PROLOGUE 
5 MOVL = R7, RS 'SET ADDR OF UCB 
é J$B G*fOCSINITORV SINIT THE CONTROL BLOCKS 
7 TSTL DOBSL_ DT(R10) :CHECK IF DDT EXISTS 
a BEQL 108 :IF EQL, BAD DDB 
9 BLBS 0,708 ‘BR IF SUCCESS 
90 10$:  MOVL  #SYSG$_INVDPTINI,RO SSET ERROR STATUS 
291 BRW DB_ERROR tee EXIT 
598 ; Relocate the DDT and FDT to SYSTEM VIRTUAL ADDRESSES. 
595 70S: PUSHL R11 sSAVE DPT ADDRESS 
596 MOVL R10,R11 [SET ADDRESS OF DDB 
597 JSB G*IOCS$RELOC_DDT SRELOCATE DDT and FDT 
398 POPL R11 SRESTORE DPT 
600 : CALL THE CONTROLLER AND DRIVE INITIALIZATION ROUTINES 
60¢ INIT_CNTRL: 
604 DSBINT ;DISABLE INTERRUPTS 
605 MOVL  #1,R0 SINSURE CSR TEST SEE SUCCESS EVEN IF 
606 SIOGENSCNTRL_INI IS NOT CALL 
60 BBC #LOAD_V_CRB,W*LOAD_FLAGS.INIT_UNIT ;6R IF CRB NOT JUST CREATED 
608 MOVL  R10,R [SET ADDR OF DD 
609 BSBW IOGENSCNTRL_INI SINITIALIZE THE CONTROLLER 
610 SeeeBEWARE®*® DON'T CORRUPT RO 
611 [BEFORE THE BLBC BELOW 
ei8 INIT_UNIT: 
615 MOVL R7,RS ;SETUP UCB ADDRESS 
616 BEQL §ENABLE_INT :BRANCH IF NO UCB TO INIT 
61 MOVL DDBS$L_6DT(R10), - [COPY DDT ADDRESS TO UCB 
618 UCBS$L~DDT(RS) 
61 BLBC RO,ENABLE_INT ;BRANCH IF ERROR TESTING CSR 
620 : (RETURNED BY IOGENSCNTRL_INI ABOVE) 
621 PUSHL R8 [SAVE IDB ADDRESS 
6 é MOVL R9,R8 :SETUP CRB ADDRESS 
6 J$B G*{OCSUNITINIT [CALL COMMON DRIVER UNIT INIT CALLER 
6 4 POPL RB SRESTORE IDB ADDRESS 
6 5 ENABLE _INT: 
6 ? ENBINT ;RE-ENABLE INTERRUPTS 
6 ; NEXT_UCB: 
631 ; Increment current unit number : 
632 ; Loop through Create UCB code once for each unit 
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v04-000 LOAD_DB = LOAD THE DATABASE 4=-SEP=1984 23:04:34 [CBOOTS.SRCILOADER.MAR; 1 (1 
041A 633; 
21 ac % yolk 634 TSTB ACF$B_NUMUNIT(AP) ; TEST NO. OF UNITS TO CONFIGURE 
0B 1 41D 635 BEQL ; EXIT IF ZERO 
21 aC 97 pore 6 § DECB ACF$B_NUMUNIT (AP) ; DECREMENT NO. OF UNITS TO CONFIGURE 
06 15 0422 6 BLEQ T 3 ALL DONE! 
12 A 8 3% 4 6 8 INCW ACF$W_CUNIT(AP) 3 MOVE TO NEXT UNIT NO. 
FEA 1 0427 6 BRW CREATE_UCB ; AND LOOP 
25a bah 
‘ A o¢¢ ; OPERATION COMPLETED = UNLOCK 1/0 DATABASE AND EXIT 
42A 644 OB_EXIT: 
FBD3' 30 042A 645 BSBW IOGENSUNLK_10DB UNLOCK 1/0 DATABASE 
0420 646 3 AND LOWER IPL 
50 01 DO 0420 647 MOVL #1,R0 SET SUCCESS 
04 0430 648 RET tee EXIT 
0431 649 


cs 


C 15 
= LOAD A DRIVER AND/OR DEVICE CONTROL BL 15-SEP-1984 23:54:17 VAX/VMS Macro V04-00 Page 
DB_ERROR = ERROR LOADING DATABASE 46-SEP-1984 33:34:44 BOOTS. SRCIJLOADER.MAR; 1 ° 
431 651 -SBTTL OB_ERROR = ERROR LOADING DATABASE 
ae 
Oo | Oee : : DB ERROR = LOCAL ROUTINE TO UNLOAD A PARTIALLY LOADED DATABASE 
0431 O28 5 This routine checks the loading flags (LOAD_FLAGS) and 
Re : Gor i 3 unload and unlinks any control blocks that were just created. 
8 1 659 : INPUTS: 
0431 660 : 
0431 661 ; LOAD_FLAGS = FLAGS INDICATING CONTROL BLOCKS THAT HAVE JUST 
0631 66¢ ; BEEN CREATED 
431 665; 
bea] 664 : OUTPUTS: 
0431 665 ; 
0431 666 ; RO = ERROR STATUS THAT CAUSED UNLOADING 
0431 667; 
ott 668 
0431 669 68. ERROR: 
50 DD 0431 ero PUSHL RO sSAVE ERROR STATUS 
0¢33 ore 3 UCB UNLOADING 
26 OOOO'CF 03 £1 0433 674 BBC #LOAD_V_UCB,W*LOAD_FLAGS, 208 :BR IF UCB NOT CREATED 
50 O07CB803A BF D1 0439 675 CMPL #SYSGS_RAXUNITS ,RO™ S iT A MAXUN ITs ERROR 
04 13 0440 676 BEQL aT 50. NO BLINK 
0005'DF 04 0442 67/ CLRL aW*UCB_BLINK :CLEAR POINTER TO UCB 
0C AY B7 0446 678 5S: DECW CRBSW -REFC(R9) ;DECREMENT CRB REFERENCE COUNT 
50 12 AC 3C 0449 679 MOVZWL ACF SW-CUNIT(AP) ,RO GET CONTROLLER UNIT NUMBER 
18 A840 04 044D 680 CLRL IDB$L-UCBLST(R8) CROJ CLEAR IDB POINTER TO UCB 
50 57 DO 0451 681 MOVL R7,RO~ 7SET ADDR OF UCB 
02 10 0454 68¢ BSBB fog. ; DEALLOCATE THE UCB 
0 i1 bees oe BRB 208 3 
beee eH 3; LOCAL SUBROUTINE TO DEALLOCATE A CONTROL BLOCK 
Neee ° f 3 INPUT = RO = ADDRESS OF BLOCK TO DEALLOCATE 
00000000°GF 16 0458 689 ios: JSB G*EXESDEANONPAGED ;DEALLOCATE TO NON-PAGED POOL 
05 O45E 690 RSB 
045F 691 
O45F 692; 
tH O27 ; IDB UNLOADING 
05 0000'CF 92 E1 beet 95 208: BBC #LOAD V_1DB,W*LOAD_FLAGS, 308 sBR IF IDB NOT CREATED 
oe t 0465 696 MOVL R8.RO TA 
fe 1 0668 697 BSEB 10$ SEALLOCATE THE IDB 
46A 698; 
O6GA $93 3 CRB UNLOADING 
1A 0000'CF 01 €1 Océ 701 $0$: BBC tak V_CRB,W*LOAD_FLAGS,50$ ;BR IF CRB NOT CREATED 
10 0D AB O00 siéE1: «O04 9 7 BBC Ha SUBCNTRL DPTSB_ FLAGS(RIT) 40$ IF shat SUBCONTROLLER 
1 209 00 475 7 MOVL NK(R9) RI GET AD DDR O P gE CON 
1 C Al p 479 704 MOVL ERSL fareeueede. DB(R1)5R eet ADDR uot SECONDARY 108 
0 AA A 047D 705 MOVZBL ACFSB"AUNIT(AP) ,R [GET ADAPTER UNIT NUMBER 
18 A14 D4 48] 7 6 LRL Ines, ~UEBLST (RI SEROI >CLEAR DISPATCHER POINTER 
50 59 DO 0485 707 40S: MOV :SET ADDR OF CRB 
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v04-000 dB ERROR = ERROR LOADING DATABASE 4=-SEP=1984 23:04:34 [CBOOTS.SRCJLOADER.MAR;1 
CE 10 0488 708 BSBB 10$ ;DEALLOCATE THE CRB 
048A 709; 
Oe oy : DDB UNLOADING 
OD OOOO'CF 00 €1 048A ie 50s: BBC #LOAD_V_DDB,W*LOAD_FLAGS, 608 Al IF DDB NOT CREATED 
0B AB O97:=«—(049 71 DECB DPT$B-REFC(R11) REMENT ofr REFERENCE COUNT 
0001'DF 6A DO 049 714 MOVL DDBSL-LINK(R10) ,aw*DDB BLINK; UPDATE THE DDB CHAIN 
50 SA DO 0498 715 MOVL R10,R0 DB 
10 rh ig ane BSBB 10$ SDEALLOCATE THE DDB 
FB60' 30 049D 718 BSBw IOGENSUNLK_ 1008 UNLOCK THE 1/0 DATABASE 
4A0 719 : AND LOWER IPL 
50 BEDO 04A ee POPL RO :RESTORE STATUS 
04 046A 721 RET gee EXIT 
04A4 sé 
04A4 72 END 
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Dd NAME 
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! Psect synopsis ! 


f$oasres mon anmaammon $ 


PSECT name Allocation PSECT No. Attributes 

~» 8S « 00000000 . 0.) 0O0¢ OQ.) NOPIC USR ABS LCL ee NOEXE —_ 
SABSS 00000000 ( 0.) 0O1¢ #41.) \NOPIC USR CON ABS LCL NOSHR’- EXE 
NONPAGED_DATA 00000009 9.) 02 ¢ ¢-3 NOPIC USR CON REL LCL ae ote NOE XE RD 
NONPAGED_ CODE Q00004A4 ( 1188.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR' EXE RD 
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! Performance indicators H 


Phase Page faults CPU Time Elapsed Time 
Initialization 39 00:00:00.06 00:00:00.38 
ponnend processing 155 BB S| 00:00:02.45 
366 00:00:1 “oF eS ETRE 

Synbol table sort 0 00:00:01.9 00:00:03.75 
s 2 140 es Be 00:00:05.58 
Suabot table output 20 00:00:00.1 00:00:00.37 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 BB 8045's a BY 
Assembler run totals 724 00:00:19.1 00:00:37.89 


The working set Limit was 1650 pages. 

77352 bytes_(152 pages) of virtual memory were used to buffer the intermediate c 

There were 70 pages of symbol table space allocated to hold 1327 non-local and 43° local symbols. 
723 source Lines were read in Pass 1, producing object records in Pass 2. 

1 pages of virtual memory were used to define 30 macros. 


dass anoreen ass oan een nae rases + 
! Macro Library statistics ! 
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Macro Library name 


“$255$DUA28: pacers. OBJJBOOTS.MLB;1 0 
“$255$DUA28: (SY $.0BJJLIB.MLB;: 1 18 
“$255$DUA28: Eeyei BISTARLET. MLB; 2 9 
TOTALS (all Libraries) 27 


1446 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:LOADER/OBJ=OBJ$:LOADER MSRC$:LOADER/UPDATE=(ENH$:LOADER) +EXECML$/LIB+L 1B$:B00TS.MLB/LIB 
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